COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
C00016 ENDMK
C⊗;
C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
      COMMON K,I(512) /P/P(50) /FINOUT/PEAK,RPEAK,NBUF
	1 /IFIRST/IFIRST,IDT
	EQUIVALENCE (P2,P(2))
	DATA TRNS/'TRNS'/,BLA/' '/
C****************CHECK NEAR HERE FOR NEEDED CHANGES **************
	TYPE 3
	ACCEPT 4,X
	IF(X.EQ.BLA)X=TRNS 
	CALL OFILE(21,X)
C CREATE OUTPUT FILE, DEFAULT NAME=FOR21
	IFIRST=-1
	IDT=1
C ABOVE 2 ARE IN TRANS. ROUTINES.
1	CALL TRANS(IDT)
	IF(P(1).EQ.1)TYPE 5,P2
2	WRITE(21)K,(P(J),J=1,K)
	IF(P(1).EQ.6.)CALL EXIT   
C CLOSE FILE AFTER A 'FINISH' OR A COLON (=END OF INPUT) HAS BEEN READ.
	GO TO 1
3	FORMAT(' TYPE OUTPUT NAME -- '$)
4	FORMAT(A4)
5	FORMAT('+',F9.2,$)
	END